/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_06 / gerald / Rounding / Falsify

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0d f4 3e 46 61 | 6c 73 69 66 79 0d 00 14 |.....>Fa|lsify...|
|00000010| 14 f4 20 42 79 20 52 2e | 57 2e 4e 65 77 6d 61 72 |.. By R.|W.Newmar|
|00000020| 6b 0d 00 1e 09 58 25 3d | 32 35 0d 00 28 05 f5 0d |k....X%=|25..(...|
|00000030| 00 32 34 52 3d b3 28 2d | 58 25 29 20 3a f4 20 74 |.24R=.(-|X%) :. t|
|00000040| 6f 20 6f 62 74 61 69 6e | 20 69 64 65 6e 74 69 63 |o obtain| identic|
|00000050| 61 6c 20 6c 69 73 74 73 | 20 6f 66 20 6e 75 6d 62 |al lists| of numb|
|00000060| 65 72 73 0d 00 3c 0a 6e | 6f 25 3d 32 35 0d 00 46 |ers..<.n|o%=25..F|
|00000070| 05 db 0d 00 50 24 f1 22 | 4e 75 6d 62 65 72 3a 20 |....P$."|Number: |
|00000080| 20 54 72 75 65 20 20 20 | 20 20 20 46 61 6c 73 69 | True   |   Falsi|
|00000090| 66 69 65 64 20 22 0d 00 | 5a 23 f1 22 20 20 20 20 |fied "..|Z#."    |
|000000a0| 20 20 20 20 20 52 6f 75 | 6e 64 69 6e 67 3a 20 52 |     Rou|nding: R|
|000000b0| 6f 75 6e 64 69 6e 67 3a | 22 0d 00 64 1c de 55 25 |ounding:|"..d..U%|
|000000c0| 28 6e 6f 25 29 2c 44 25 | 28 6e 6f 25 29 2c 44 24 |(no%),D%|(no%),D$|
|000000d0| 28 6e 6f 25 29 0d 00 6e | 25 46 69 6e 52 54 25 3d |(no%)..n|%FinRT%=|
|000000e0| 30 20 3a f4 20 46 69 6e | 61 6c 6c 79 20 72 6f 75 |0 :. Fin|ally rou|
|000000f0| 6e 64 65 64 20 74 6f 74 | 61 6c 0d 00 78 2a 49 6e |nded tot|al..x*In|
|00000100| 64 52 54 25 3d 30 20 3a | f4 20 49 6e 64 69 76 69 |dRT%=0 :|. Indivi|
|00000110| 64 75 61 6c 6c 79 20 72 | 6f 75 6e 64 65 64 20 74 |dually r|ounded t|
|00000120| 6f 74 61 6c 0d 00 82 0e | e3 69 25 3d 31 b8 20 6e |otal....|.i%=1. n|
|00000130| 6f 25 0d 00 8c 43 55 25 | 28 69 25 29 3d b3 28 31 |o%...CU%|(i%)=.(1|
|00000140| 30 30 29 2d 31 20 3a f4 | 20 75 6e 69 74 73 2e 7c |00)-1 :.| units.||
|00000150| 20 20 20 49 6e 74 65 67 | 65 72 73 20 75 73 65 64 |   Integ|ers used|
|00000160| 20 74 6f 20 61 76 6f 69 | 64 20 70 69 74 66 61 6c | to avoi|d pitfal|
|00000170| 6c 73 20 6f 66 0d 00 96 | 38 44 25 28 69 25 29 3d |ls of...|8D%(i%)=|
|00000180| b3 28 31 30 29 2d 31 20 | 20 3a f4 20 74 65 6e 74 |.(10)-1 | :. tent|
|00000190| 68 73 7c 20 20 20 6e 6f | 6e 2d 69 6e 74 65 67 65 |hs|   no|n-intege|
|000001a0| 72 20 61 72 69 74 68 6d | 65 74 69 63 2e 0d 00 a0 |r arithm|etic....|
|000001b0| 18 f1 3b 55 25 28 69 25 | 29 3b 22 2e 22 3b 44 25 |..;U%(i%|);".";D%|
|000001c0| 28 69 25 29 3b 0d 00 aa | 1d 46 69 6e 52 54 25 2b |(i%);...|.FinRT%+|
|000001d0| 3d 20 55 25 28 69 25 29 | 2a 31 30 2b 44 25 28 69 |= U%(i%)|*10+D%(i|
|000001e0| 25 29 0d 00 b4 43 f4 20 | 54 68 65 20 6e 65 78 74 |%)...C. |The next|
|000001f0| 20 74 68 72 65 65 20 6c | 69 6e 65 73 20 72 6f 75 | three l|ines rou|
|00000200| 6e 64 20 6e 75 6d 62 65 | 72 73 20 69 6e 64 69 76 |nd numbe|rs indiv|
|00000210| 69 64 75 61 6c 6c 79 20 | 61 6e 64 20 61 64 64 20 |idually |and add |
|00000220| 74 68 65 6d 2e 0d 00 be | 26 e7 20 44 25 28 69 25 |them....|&. D%(i%|
|00000230| 29 3c 35 20 52 25 3d 55 | 25 28 69 25 29 20 8b 20 |)<5 R%=U|%(i%) . |
|00000240| 52 25 3d 55 25 28 69 25 | 29 2b 31 0d 00 c8 0c f1 |R%=U%(i%|)+1.....|
|00000250| 8a 31 32 29 3b 52 25 0d | 00 d2 0e 49 6e 64 52 54 |.12);R%.|...IndRT|
|00000260| 25 2b 3d 52 25 0d 00 dc | 05 ed 0d 00 e6 30 e7 20 |%+=R%...|.....0. |
|00000270| 46 69 6e 52 54 25 83 31 | 30 3e 3d 35 20 46 69 6e |FinRT%.1|0>=5 Fin|
|00000280| 52 54 25 2b 3d 31 30 20 | 3a f4 20 72 6f 75 6e 64 |RT%+=10 |:. round|
|00000290| 69 6e 67 20 74 6f 74 61 | 6c 2e 0d 00 f0 14 46 69 |ing tota|l.....Fi|
|000002a0| 6e 52 54 25 3d 46 69 6e | 52 54 25 81 31 30 0d 00 |nRT%=Fin|RT%.10..|
|000002b0| fa 0d 49 25 3d 49 6e 64 | 52 54 25 0d 01 04 1a e7 |..I%=Ind|RT%.....|
|000002c0| 49 25 3c 46 69 6e 52 54 | 25 20 f2 75 70 20 8b 20 |I%<FinRT|% .up . |
|000002d0| f2 64 6f 77 6e 0d 01 0e | 33 46 61 6c 73 65 52 54 |.down...|3FalseRT|
|000002e0| 25 3d 30 20 3a f4 20 54 | 6f 74 61 6c 20 6f 66 20 |%=0 :. T|otal of |
|000002f0| 66 61 6c 73 65 6c 79 20 | 72 6f 75 6e 64 65 64 20 |falsely |rounded |
|00000300| 6e 75 6d 62 65 72 73 2e | 0d 01 18 10 e3 20 69 25 |numbers.|..... i%|
|00000310| 3d 31 20 b8 20 6e 6f 25 | 0d 01 22 19 e7 20 44 25 |=1 . no%|..".. D%|
|00000320| 28 69 25 29 3e 3d 35 20 | 55 25 28 69 25 29 2b 3d |(i%)>=5 |U%(i%)+=|
|00000330| 31 0d 01 2c 3f f4 20 54 | 68 65 20 66 61 6c 73 65 |1..,?. T|he false|
|00000340| 6c 79 20 72 6f 75 6e 64 | 65 64 20 6e 75 6d 62 65 |ly round|ed numbe|
|00000350| 72 73 20 61 72 65 20 6d | 61 72 6b 65 64 20 77 69 |rs are m|arked wi|
|00000360| 74 68 20 61 6e 20 55 50 | 20 6f 72 20 44 4f 57 4e |th an UP| or DOWN|
|00000370| 0d 01 36 24 f4 20 61 72 | 72 6f 77 20 61 6e 64 20 |..6$. ar|row and |
|00000380| 61 6c 6c 20 61 72 65 20 | 70 72 69 6e 74 65 64 20 |all are |printed |
|00000390| 6f 75 74 2e 0d 01 40 25 | f1 8a 31 35 2c 69 25 2b |out...@%|..15,i%+|
|000003a0| 31 29 44 24 28 69 25 29 | 3b 8a 32 30 2c 69 25 2b |1)D$(i%)|;.20,i%+|
|000003b0| 31 29 3b 55 25 28 69 25 | 29 0d 01 4a 14 46 61 6c |1);U%(i%|)..J.Fal|
|000003c0| 73 65 52 54 25 2b 3d 55 | 25 28 69 25 29 0d 01 54 |seRT%+=U|%(i%)..T|
|000003d0| 05 ed 0d 01 5e 0e f1 22 | 54 6f 74 61 6c 73 3a 22 |....^.."|Totals:"|
|000003e0| 0d 01 68 26 f1 3b 46 69 | 6e 52 54 25 20 8a 31 32 |..h&.;Fi|nRT% .12|
|000003f0| 29 3b 49 6e 64 52 54 25 | 20 8a 32 30 29 3b 46 61 |);IndRT%| .20);Fa|
|00000400| 6c 73 65 52 54 25 0d 01 | 72 06 e7 a5 0d 01 7c 32 |lseRT%..|r.....|2|
|00000410| f4 20 54 68 65 20 6e 65 | 78 74 20 6c 69 6e 65 20 |. The ne|xt line |
|00000420| 63 68 61 6e 67 65 73 20 | 73 65 65 64 20 6f 66 20 |changes |seed of |
|00000430| 72 61 6e 64 6f 6d 20 6e | 75 6d 62 65 72 73 0d 01 |random n|umbers..|
|00000440| 86 17 e7 20 58 25 3d 32 | 35 20 58 25 3d 35 37 33 |... X%=2|5 X%=573|
|00000450| 3a d8 3a fd 30 0d 01 90 | 05 e0 0d 01 9a 05 3a 0d |:.:.0...|......:.|
|00000460| 01 a4 08 dd f2 75 70 0d | 01 ae 12 e3 6a 25 3d 20 |.....up.|....j%= |
|00000470| 34 20 b8 20 30 20 88 2d | 31 0d 01 b8 0e e3 69 25 |4 . 0 .-|1.....i%|
|00000480| 3d 31 b8 20 6e 6f 25 0d | 01 c2 10 e7 44 25 28 69 |=1. no%.|....D%(i|
|00000490| 25 29 3d 6a 25 20 8c 0d | 01 cc 0d 55 25 28 69 25 |%)=j% ..|...U%(i%|
|000004a0| 29 2b 3d 31 0d 01 d6 0c | 44 25 28 69 25 29 3d 30 |)+=1....|D%(i%)=0|
|000004b0| 0d 01 e0 09 49 25 2b 3d | 31 0d 01 ea 1b 44 24 28 |....I%+=|1....D$(|
|000004c0| 69 25 29 3d bd 31 33 39 | 20 3a f4 20 55 50 20 61 |i%)=.139| :. UP a|
|000004d0| 72 72 6f 77 0d 01 f4 05 | cd 0d 01 fe 1b e7 20 49 |rrow....|...... I|
|000004e0| 25 3d 46 69 6e 52 54 25 | 20 6a 25 3d 30 3a 69 25 |%=FinRT%| j%=0:i%|
|000004f0| 3d 6e 6f 25 0d 02 08 06 | ed 2c 0d 02 12 05 e1 0d |=no%....|.,......|
|00000500| 02 1c 05 3a 0d 02 26 0a | dd f2 64 6f 77 6e 0d 02 |...:..&.|..down..|
|00000510| 30 0d e3 6a 25 3d 35 20 | b8 20 39 0d 02 3a 0e e3 |0..j%=5 |. 9..:..|
|00000520| 69 25 3d 31 b8 20 6e 6f | 25 0d 02 44 11 e7 20 44 |i%=1. no|%..D.. D|
|00000530| 25 28 69 25 29 3d 6a 25 | 20 8c 0d 02 4e 0c 44 25 |%(i%)=j%| ...N.D%|
|00000540| 28 69 25 29 3d 30 0d 02 | 58 09 49 25 2d 3d 31 0d |(i%)=0..|X.I%-=1.|
|00000550| 02 62 1d 44 24 28 69 25 | 29 3d bd 31 33 38 20 3a |.b.D$(i%|)=.138 :|
|00000560| f4 20 44 4f 57 4e 20 61 | 72 72 6f 77 0d 02 6c 05 |. DOWN a|rrow..l.|
|00000570| cd 0d 02 76 1c e7 20 49 | 25 3d 46 69 6e 52 54 25 |...v.. I|%=FinRT%|
|00000580| 20 6a 25 3d 31 30 3a 69 | 25 3d 6e 6f 25 0d 02 80 | j%=10:i|%=no%...|
|00000590| 06 ed 2c 0d 02 8a 05 e1 | 0d ff                   |..,.....|..      |
+--------+-------------------------+-------------------------+--------+--------+